Visual Basic Controls

home *** CD-ROM | disk | FTP | other *** search

/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / aals / aals.exe / DISK1 / _SETUP.1 / Acockpit.frm (.txt) < prev next >

Wrap

Visual Basic Form | 1998-03-04 | 42.6 KB | 1,218 lines

VERSION 4.00 Begin VB.Form Form2 Appearance = 0 'Flat BackColor = &H00C0C0C0& BorderStyle = 1 'Fixed Single Caption = "Aircraft Cockpit Demonstration" ClientHeight = 6960 ClientLeft = 2070 ClientTop = 2175 ClientWidth = 9000 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H80000008& Height = 7650 Icon = "Acockpit.frx":0000 Left = 2010 LinkTopic = "Form2" MaxButton = 0 'False MinButton = 0 'False ScaleHeight = 464 ScaleMode = 3 'Pixel ScaleWidth = 600 Top = 1545 Width = 9120 Begin VB.Timer Timer2 Interval = 200 Left = 8520 Top = 3240 End Begin VB.Timer Timer1 Interval = 50 Left = 8505 Top = 2775 End Begin AIRLib.Air Speed Height = 2250 Left = 2250 TabIndex = 9 Top = 0 Width = 2250 _Version = 131078 _Version = 131078 _ExtentX = 3969 _ExtentY = 3969 _StockProps = 71 BackColor = 0 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty BackColor = 0 DisplayMode = 4 Barometer = 29.8999996185303 OdometerBorderColor0= 16777215 OdometerStyle0 = 3 OdometerValue0 = 0 OdometerX0 = -0.4 OdometerBorderColor1= 16777215 OdometerDecimalFontColor1= 16777215 OdometerDecimals1= 2 OdometerDecimalWheelColor1= 0 OdometerDigits1 = 4 OdometerValue1 = 29.8999996185303 OdometerX1 = 0.5 KnobColor0 = 128 KnobDigitalDecimals0= 4 KnobMultiTurn0 = -1 'True KnobMultiTurnValue0= 1 KnobRadius0 = 0.25 KnobScaleID0 = 1 KnobShape??0 = "0,1100, 350,700, 100,700, 200,-200, 0,-100, -200,-200, -100,700, -350,700" KnobSnapIncrement0= 0.1 KnobStyle0 = 0 KnobValue0 = 29.8999996185303 MarkInnerRadius0= 0.7 MarkOuterRadius0= 0.9 MarkScaleID0 = 1 MarkStyle0 = 2 MarkValue0 = 2989.99996185303 MarkWidth0 = 0.2 BevelInner = 2 BevelWidth = 1 BorderWidth = 0 FrameBottom = 1.14999997615814 FrameLeft = -1.14999997615814 FrameRight = 1.14999997615814 FrameShape??0 = "0,100, 100,0, 900,0, 1000,100, 1000,900, 900,1000, 100,1000, 0,900" FrameStyle = 2 FrameTop = -1.14999997615814 CardColor = 16777215 CardLabelRadius = 0.9 CardStyle = 2 CardLabelStyle = 1 MajorTicShape??0= "0,800, 0,680" MinorTicShape??0= "0,760, 0,680" ScaleMaxValue0 = 170 ScaleMinValue0 = 35 ScaleStartAngle0= 30 ScaleStopAngle0 = 330 AnnularSize = 4 AnnularColor0 = 128 AnnularStartValue0= 150 AnnularStopValue0= 170 AnnularColor1 = 65535 AnnularStartValue1= 112 AnnularStopValue1= 150 AnnularColor2 = 32768 AnnularStartValue2= 40 AnnularStopValue2= 112 AnnularColor3 = 16777215 AnnularInnerRadius3= 0.67 AnnularOuterRadius3= 0.7 AnnularStartValue3= 35 AnnularStopValue3= 85 CaptionSize = 1 CaptionColor0 = 16777215 Caption0 = "AIRSPEED" CaptionY0 = 0.8 CaptionVisible0 = -1 'True CaptionFlag0 = 1 NeedleSize = 1 NeedleColor0 = 16777215 NeedleMouseControl0= 1 NeedleStyle0 = 0 NeedleWidth0 = 0.05 TicSize = 3 TicColor0 = 16777215 TicDeltaValue0 = 10 TicLabel0 = 0 'False TicStartValue0 = 40 TicStopValue0 = 170.01 TicColor1 = 16777215 TicDeltaValue1 = 20 TicStartValue1 = 40 TicStopValue1 = 170.01 TicColor2 = 16777215 TicDeltaValue2 = 5 TicLabel2 = 0 'False TicLabelRadius2 = 0 TicOuterRadius2 = 0.78 TicStartValue2 = 35 TicStopValue2 = 170.01 BeginProperty Font0 {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Small Fonts" Size = 6 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty End Begin AIRLib.Air turn Height = 1215 Left = 2850 TabIndex = 8 Top = 5535 Width = 3300 _Version = 131078 _Version = 131078 _ExtentX = 5821 _ExtentY = 2143 _StockProps = 71 BackColor = 0 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty BackColor = 0 DisplayMode = 7 Barometer = 29.8999996185303 OdometerBorderColor0= 16777215 OdometerStyle0 = 3 OdometerValue0 = 0 OdometerX0 = -0.400000005960464 OdometerBorderColor1= 16777215 OdometerDecimalFontColor1= 16777215 OdometerDecimals1= 2 OdometerDecimalWheelColor1= 0 OdometerDigits1 = 4 OdometerValue1 = 29.8999996185303 OdometerX1 = 0.5 KnobColor0 = 128 KnobDigitalDecimals0= 4 KnobMultiTurn0 = -1 'True KnobMultiTurnValue0= 1 KnobRadius0 = 0.25 KnobScaleID0 = 1 KnobShape??0 = "0,1100, 350,700, 100,700, 200,-200, 0,-100, -200,-200, -100,700, -350,700" KnobSnapIncrement0= 0.100000001490116 KnobStyle0 = 0 KnobValue0 = 29.8999996185303 MarkInnerRadius0= 0.699999988079071 MarkOuterRadius0= 0.899999976158142 MarkScaleID0 = 1 MarkStyle0 = 2 MarkValue0 = 29.8999996185303 MarkWidth0 = 0.200000002980232 BevelWidth = 1 BorderWidth = 0 FrameBottom = 1.14999997615814 FrameLeft = -1.14999997615814 FrameRight = 1.14999997615814 FrameShape??0 = "0,100, 100,0, 900,0, 1000,100, 1000,900, 900,1000, 100,1000, 0,900" FrameStyle = 2 FrameTop = -1.14999997615814 CardColor = 16777215 CardLabelRadius = 0.699999988079071 CardStyle = 2 CardLabelStyle = 1 MajorTicShape??0= "0,900, 0,780" MinorTicShape??0= "0,900, 0,820" ScaleMaxValue0 = 360 ScaleStartAngle0= 0 ScaleStopAngle0 = 360 CaptionSize = 3 CaptionColor0 = 16777215 Caption0 = "2 MIN." CaptionY0 = -0.699999988079071 CaptionVisible0 = -1 'True CaptionColor1 = 16777215 Caption1 = "L" CaptionX1 = -0.5 CaptionY1 = -0.600000023841858 CaptionVisible1 = -1 'True CaptionColor2 = 16777215 Caption2 = "R" CaptionX2 = 0.5 CaptionY2 = -0.600000023841858 CaptionVisible2 = -1 'True TicSize = 2 TicColor0 = 16777215 TicDeltaValue0 = 20 TicInnerRadius0 = 0.9 TicLabel0 = 0 'False TicOuterRadius0 = 1 TicStartValue0 = 90 TicStopValue0 = 110.1 TicWidth0 = 0.02 TicColor1 = 16777215 TicDeltaValue1 = 20 TicInnerRadius1 = 0.9 TicLabel1 = 0 'False TicOuterRadius1 = 1 TicStartValue1 = 250 TicStopValue1 = 270.1 TicWidth1 = 0.02 BeginProperty Font0 {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Small Fonts" Size = 3.75 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty End Begin AIRLib.Air ADF Height = 2250 Left = 585 TabIndex = 7 Top = 4515 Width = 2250 _Version = 131078 _Version = 131078 _ExtentX = 3969 _ExtentY = 3969 _StockProps = 71 BackColor = 0 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty BackColor = 0 DisplayMode = 9 Barometer = 29.8999996185303 m_airspeedVFE = 95 m_airspeedVNO = 150 m_airspeedVNE = 180 m_airspeedVMax = 210 OdometerBorderColor0= 16777215 OdometerStyle0 = 3 OdometerValue0 = 0 OdometerX0 = -0.400000005960464 OdometerBorderColor1= 16777215 OdometerDecimalFontColor1= 16777215 OdometerDecimals1= 2 OdometerDecimalWheelColor1= 0 OdometerDigits1 = 4 OdometerStyle1 = 2 OdometerValue1 = 29.8999996185303 OdometerX1 = 0.5 KnobColor0 = 128 KnobDigitalDecimals0= 4 KnobMultiTurn0 = -1 'True KnobMultiTurnValue0= 1 KnobRadius0 = 0.25 KnobScaleID0 = 1 KnobShape??0 = "0,1100, 350,700, 100,700, 200,-200, 0,-100, -200,-200, -100,700, -350,700" KnobSnapIncrement0= 0.100000001490116 KnobStyle0 = 0 KnobValue0 = 29.8999996185303 MarkInnerRadius0= 0.699999988079071 MarkOuterRadius0= 0.899999976158142 MarkScaleID0 = 1 MarkStyle0 = 2 MarkValue0 = 2990 MarkWidth0 = 0.200000002980232 BevelInner = 2 BevelWidth = 1 BorderWidth = 0 FrameBottom = 1.14999997615814 FrameLeft = -1.14999997615814 FrameRight = 1.14999997615814 FrameShape??0 = "0,100, 100,0, 900,0, 1000,100, 1000,900, 900,1000, 100,1000, 0,900" FrameStyle = 2 FrameTop = -1.14999997615814 CardColor = 16777215 CardLabelRadius = 0.85 CardStyle = 2 CardLabelStyle = 3 MajorTicShape??0= "0,600, 0,750" MinorTicShape??0= "0,600, 0,675" ScaleMaxValue0 = 360 ScaleStartAngle0= 0 ScaleStopAngle0 = 360 CaptionSize = 1 CaptionColor0 = 16777215 Caption0 = "ADF" CaptionY0 = -0.300000011920929 CaptionVisible0 = -1 'True HubSize = 1 HubColor0 = 12632256 HubRadius0 = 0.100000001490116 TicSize = 1 TicColor0 = 16777215 TicDeltaValue0 = 45 TicFloatOffset0 = 1 TicInnerRadius0 = 1.1 TicLabel0 = 0 'False TicOuterRadius0 = 1 TicStopValue0 = 355 TicStyle0 = 2 TicWidth0 = 0.15 BeginProperty Font0 {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty End Begin AIRLib.Air Climb Height = 2250 Left = 6750 TabIndex = 6 Top = 15 Width = 2250 _Version = 131078 _Version = 131078 _ExtentX = 3969 _ExtentY = 3969 _StockProps = 71 BackColor = 0 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty BackColor = 0 DisplayMode = 3 Barometer = 29.8999996185303 m_airspeedVFE = 95 m_airspeedVNO = 150 m_airspeedVNE = 180 m_airspeedVMax = 210 OdometerBorderColor0= 16777215 OdometerStyle0 = 3 OdometerValue0 = 0 OdometerX0 = -0.400000005960464 OdometerBorderColor1= 16777215 OdometerDecimalFontColor1= 16777215 OdometerDecimals1= 2 OdometerDecimalWheelColor1= 0 OdometerDigits1 = 4 OdometerStyle1 = 2 OdometerValue1 = 29.8999996185303 OdometerX1 = 0.5 KnobColor0 = 128 KnobDigitalDecimals0= 4 KnobMultiTurn0 = -1 'True KnobMultiTurnValue0= 1 KnobRadius0 = 0.25 KnobScaleID0 = 1 KnobShape??0 = "0,1100, 350,700, 100,700, 200,-200, 0,-100, -200,-200, -100,700, -350,700" KnobSnapIncrement0= 0.100000001490116 KnobStyle0 = 0 KnobValue0 = 29.8999996185303 MarkInnerRadius0= 0.699999988079071 MarkOuterRadius0= 0.899999976158142 MarkScaleID0 = 1 MarkStyle0 = 2 MarkValue0 = 2990 MarkWidth0 = 0.200000002980232 BevelInner = 2 BevelWidth = 1 BorderWidth = 0 FrameBottom = 1.14999997615814 FrameLeft = -1.14999997615814 FrameRight = 1.14999997615814 FrameShape??0 = "0,100, 100,0, 900,0, 1000,100, 1000,900, 900,1000, 100,1000, 0,900" FrameStyle = 2 FrameTop = -1.14999997615814 CardColor = 16777215 CardLabelRadius = 0.899999976158142 CardStyle = 2 CardLabelStyle = 1 MajorTicShape??0= "0,800, 0,680" MinorTicShape??0= "0,760, 0,680" ScaleMaxValue0 = 20 ScaleMinValue0 = -20 ScaleStartAngle0= 100 ScaleStopAngle0 = 80 CaptionSize = 2 CaptionColor0 = 16777215 Caption0 = "CLIMB" CaptionY0 = -0.2 CaptionVisible0 = -1 'True CaptionFlag0 = 1 CaptionColor1 = 16777215 Caption1 = "100 ft/min" CaptionY1 = -0.35 CaptionVisible1 = -1 'True NeedleSize = 1 NeedleColor0 = 16777215 NeedleMouseControl0= 1 NeedleStyle0 = 0 NeedleWidth0 = 0.05 TicSize = 2 TicColor0 = 16777215 TicDeltaValue0 = 5 TicStartValue0 = -20 TicStopValue0 = 20.01 TicColor1 = 16777215 TicLabel1 = 0 'False TicLabelRadius1 = 0 TicOuterRadius1 = 0.78 TicStartValue1 = -10 TicStopValue1 = 10.01 BeginProperty Font0 {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Small Fonts" Size = 6 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty End Begin AIRLib.Air RMI Height = 2250 Left = 6165 TabIndex = 5 Top = 2250 Width = 2250 _Version = 131078 _Version = 131078 _ExtentX = 3969 _ExtentY = 3969 _StockProps = 71 BackColor = 0 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty BackColor = 0 DisplayMode = 10 Barometer = 29.8999996185303 m_airspeedVFE = 95 m_airspeedVNO = 150 m_airspeedVNE = 180 m_airspeedVMax = 210 OdometerBorderColor0= 16777215 OdometerStyle0 = 3 OdometerValue0 = 0 OdometerX0 = -0.400000005960464 OdometerBorderColor1= 16777215 OdometerDecimalFontColor1= 16777215 OdometerDecimals1= 2 OdometerDecimalWheelColor1= 0 OdometerDigits1 = 4 OdometerStyle1 = 2 OdometerValue1 = 29.8999996185303 OdometerX1 = 0.5 KnobColor0 = 128 KnobDigitalDecimals0= 4 KnobMultiTurn0 = -1 'True KnobMultiTurnValue0= 1 KnobRadius0 = 0.25 KnobScaleID0 = 1 KnobShape??0 = "0,1100, 350,700, 100,700, 200,-200, 0,-100, -200,-200, -100,700, -350,700" KnobSnapIncrement0= 0.100000001490116 KnobStyle0 = 0 KnobValue0 = 29.8999996185303 MarkInnerRadius0= 0.699999988079071 MarkOuterRadius0= 0.899999976158142 MarkScaleID0 = 1 MarkStyle0 = 2 MarkValue0 = 2990 MarkWidth0 = 0.200000002980232 BevelInner = 2 BevelWidth = 1 BorderWidth = 0 FrameBottom = 1.14999997615814 FrameLeft = -1.14999997615814 FrameRight = 1.14999997615814 FrameShape??0 = "0,100, 100,0, 900,0, 1000,100, 1000,900, 900,1000, 100,1000, 0,900" FrameStyle = 2 FrameTop = -1.14999997615814 CardColor = 16777215 CardLabelRadius = 0.75 CardStyle = 3 CardLabelStyle = 3 MajorTicShape??0= "0,1000, 0,850" MinorTicShape??0= "0,1000, 0,950" ScaleMaxValue0 = 360 ScaleStartAngle0= 0 ScaleStopAngle0 = 360 CaptionSize = 1 CaptionColor0 = 16777215 Caption0 = "RMI" CaptionY0 = 0.349999994039536 CaptionVisible0 = -1 'True CaptionFlag0 = 1 HubSize = 1 HubRadius0 = 0.200000002980232 TicSize = 2 TicColor0 = 16777215 TicDeltaValue0 = 45 TicFloatOffset0 = 1 TicInnerRadius0 = 1.1 TicLabel0 = 0 'False TicOuterRadius0 = 1.05 TicStartValue0 = 45 TicStopValue0 = 355 TicStyle0 = 2 TicWidth0 = 0.1 TicColor1 = 16777215 TicDeltaValue1 = 45 TicFloatOffset1 = 1 TicInnerRadius1 = 1.1 TicLabel1 = 0 'False TicOuterRadius1 = 1 TicStopValue1 = 0.1 TicStyle1 = 2 TicWidth1 = 0.15 BeginProperty Font0 {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Small Fonts" Size = 6 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty End Begin AIRLib.Air HSI Height = 2250 Left = 585 TabIndex = 4 Top = 2265 Width = 2250 _Version = 131078 _Version = 131078 _ExtentX = 3969 _ExtentY = 3969 _StockProps = 71 BackColor = 0 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty BackColor = 0 DisplayMode = 5 Barometer = 29.8999996185303 m_airspeedVFE = 95 m_airspeedVNO = 150 m_airspeedVNE = 180 m_airspeedVMax = 210 OdometerBorderColor0= 16777215 OdometerStyle0 = 3 OdometerValue0 = 0 OdometerX0 = -0.400000005960464 OdometerBorderColor1= 16777215 OdometerDecimalFontColor1= 16777215 OdometerDecimals1= 2 OdometerDecimalWheelColor1= 0 OdometerDigits1 = 4 OdometerStyle1 = 2 OdometerValue1 = 29.8999996185303 OdometerX1 = 0.5 KnobColor0 = 128 KnobDigitalDecimals0= 4 KnobMultiTurn0 = -1 'True KnobMultiTurnValue0= 1 KnobRadius0 = 0.25 KnobScaleID0 = 1 KnobShape??0 = "0,1100, 350,700, 100,700, 200,-200, 0,-100, -200,-200, -100,700, -350,700" KnobSnapIncrement0= 0.100000001490116 KnobStyle0 = 0 KnobValue0 = 29.8999996185303 MarkInnerRadius0= 0.699999988079071 MarkOuterRadius0= 0.899999976158142 MarkScaleID0 = 1 MarkStyle0 = 2 MarkValue0 = 2990 MarkWidth0 = 0.200000002980232 BevelInner = 2 BevelWidth = 1 BorderWidth = 0 FrameBottom = 1.14999997615814 FrameLeft = -1.14999997615814 FrameRight = 1.14999997615814 FrameShape??0 = "0,100, 100,0, 900,0, 1000,100, 1000,900, 900,1000, 100,1000, 0,900" FrameStyle = 3 FrameTop = -1.14999997615814 CardColor = 16777215 CardLabelRadius = 0.7 CardStyle = 2 CardLabelStyle = 1 MajorTicShape??0= "0,900, 0,780" MinorTicShape??0= "0,900, 0,820" ScaleMaxValue0 = 360 ScaleStartAngle0= 0 ScaleStopAngle0 = 360 CaptionSize = 7 CaptionColor0 = 16777215 Caption0 = "VOR1" CaptionX0 = 0.850000023841858 CaptionY0 = -0.800000011920929 CaptionVisible0 = -1 'True CaptionColor1 = 16777215 Caption1 = "TTG" CaptionX1 = -0.850000023841858 CaptionY1 = -0.800000011920929 CaptionVisible1 = -1 'True CaptionColor2 = 16777215 Caption2 = "00.0" CaptionX2 = -0.850000023841858 CaptionY2 = -0.949999988079071 CaptionVisible2 = -1 'True CaptionColor3 = 65280 Caption3 = "DME" CaptionX3 = -0.850000023841858 CaptionY3 = 0.949999988079071 CaptionVisible3 = -1 'True CaptionColor4 = 65280 Caption4 = "00.0" CaptionX4 = -0.850000023841858 CaptionY4 = 0.800000011920929 CaptionVisible4 = -1 'True CaptionColor5 = 16777215 Caption5 = "CRS" CaptionX5 = 0.850000023841858 CaptionY5 = 0.949999988079071 CaptionVisible5 = -1 'True CaptionColor6 = 16777215 Caption6 = "000" CaptionX6 = 0.850000023841858 CaptionY6 = 0.800000011920929 CaptionVisible6 = -1 'True TicSize = 2 TicColor0 = 16777215 TicDeltaValue0 = 90 TicInnerRadius0 = 0.92 TicLabel0 = 0 'False TicOuterRadius0 = 1.1 TicStartValue0 = 90 TicStopValue0 = 270.1 TicColor1 = 16777215 TicDeltaValue1 = 90 TicInnerRadius1 = 0.96 TicLabel1 = 0 'False TicLabelRadius1 = 0 TicOuterRadius1 = 0.96 TicStartValue1 = -45 TicStopValue1 = 45 TicStyle1 = 3 TicWidth1 = 0.05 BeginProperty Font0 {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Small Fonts" Size = 6 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty End Begin AIRLib.Air OBI Height = 2250 Left = 6165 TabIndex = 3 Top = 4500 Width = 2250 _Version = 131078 _Version = 131078 _ExtentX = 3969 _ExtentY = 3969 _StockProps = 71 BackColor = 0 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty BackColor = 0 DisplayMode = 11 Barometer = 29.8999996185303 m_airspeedVFE = 95 m_airspeedVNO = 150 m_airspeedVNE = 180 m_airspeedVMax = 210 m_OBIArcFlag = -1 'True m_OBIBackCourse = -1 'True m_OBIGSFlag = -1 'True m_OBINAVFlag = -1 'True m_OBIToFrom = 1 OdometerBorderColor0= 16777215 OdometerStyle0 = 3 OdometerValue0 = 0 OdometerX0 = -0.400000005960464 OdometerBorderColor1= 16777215 OdometerDecimalFontColor1= 16777215 OdometerDecimals1= 2 OdometerDecimalWheelColor1= 0 OdometerDigits1 = 4 OdometerStyle1 = 2 OdometerValue1 = 29.8999996185303 OdometerX1 = 0.5 KnobColor0 = 128 KnobDigitalDecimals0= 4 KnobMultiTurn0 = -1 'True KnobMultiTurnValue0= 1 KnobRadius0 = 0.25 KnobScaleID0 = 1 KnobShape??0 = "0,1100, 350,700, 100,700, 200,-200, 0,-100, -200,-200, -100,700, -350,700" KnobSnapIncrement0= 0.100000001490116 KnobStyle0 = 0 KnobValue0 = 29.8999996185303 MarkInnerRadius0= 0.699999988079071 MarkOuterRadius0= 0.899999976158142 MarkScaleID0 = 1 MarkStyle0 = 2 MarkValue0 = 2990 MarkWidth0 = 0.200000002980232 BevelInner = 2 BevelWidth = 1 BorderWidth = 0 FrameBottom = 1.14999997615814 FrameLeft = -1.14999997615814 FrameRight = 1.14999997615814 FrameShape??0 = "0,100, 100,0, 900,0, 1000,100, 1000,900, 900,1000, 100,1000, 0,900" FrameStyle = 2 FrameTop = -1.14999997615814 CardColor = 16777215 CardLabelRadius = 0.97 CardStyle = 4 CardLabelStyle = 3 MajorTicShape??0= "0,1075, 0,1035" MinorTicShape??0= "0,760, 0,680" ScaleMaxValue0 = 360 ScaleStartAngle0= 0 ScaleStopAngle0 = 360 BeginProperty Font0 {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Small Fonts" Size = 6 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty End Begin AIRLib.Air Alt Height = 2250 Left = 4500 TabIndex = 2 Top = 0 Width = 2250 _Version = 131078 _Version = 131078 _ExtentX = 3969 _ExtentY = 3969 _StockProps = 71 BackColor = 0 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty BackColor = 0 DisplayMode = 2 Barometer = 29.8999996185303 m_airspeedVFE = 95 m_airspeedVNO = 150 m_airspeedVNE = 180 m_airspeedVMax = 210 OdometerBorderColor0= 16777215 OdometerStyle0 = 3 OdometerValue0 = 0 OdometerX0 = -0.4 OdometerBorderColor1= 16777215 OdometerDecimalFontColor1= 16777215 OdometerDecimals1= 2 OdometerDecimalWheelColor1= 0 OdometerDigits1 = 4 OdometerValue1 = 29.8999996185303 OdometerX1 = 0.5 KnobColor0 = 128 KnobDigitalDecimals0= 4 KnobMultiTurn0 = -1 'True KnobMultiTurnValue0= 1 KnobRadius0 = 0.25 KnobScaleID0 = 1 KnobSnapIncrement0= 0.1 KnobStyle0 = 0 KnobValue0 = 29.8999996185303 MarkInnerRadius0= 0.7 MarkOuterRadius0= 0.9 MarkScaleID0 = 1 MarkStyle0 = 2 MarkValue0 = 29.8999996185303 MarkWidth0 = 0.2 BevelInner = 2 BevelWidth = 1 BorderWidth = 0 FrameBottom = 1.14999997615814 FrameLeft = -1.14999997615814 FrameRight = 1.14999997615814 FrameShape??0 = "0,100, 100,0, 900,0, 1000,100, 1000,900, 900,1000, 100,1000, 0,900" FrameStyle = 2 FrameTop = -1.14999997615814 CardColor = 16777215 CardLabelRadius = 0.899999976158142 CardStyle = 2 CardLabelStyle = 1 MajorTicShape??0= "0,800, 0,680" MinorTicShape??0= "0,760, 0,680" ScaleSize = 2 ScaleStartAngle0= 0 ScaleStopAngle0 = 360 ScaleMaxValue1 = 100 ScaleOriginX1 = -0.9 ScaleOriginY1 = -0.9 ScaleStartAngle1= 0 ScaleStopAngle1 = 360 CaptionSize = 1 CaptionColor0 = 16777215 Caption0 = "ALT" CaptionX0 = -0.159999996423721 CaptionY0 = 0.319999992847443 CaptionVisible0 = -1 'True CaptionFlag0 = 1 NeedleSize = 2 NeedleColor0 = 16777215 NeedleLength0 = 0.8 NeedleMouseControl0= 1 NeedleShape??0 = "25,50, 25,600, 0,650, -25,600, -25,50" NeedleStyle0 = 3 NeedleWidth0 = 1 NeedleColor1 = 16777215 NeedleLength1 = 0.8 NeedleShape??1 = "25,50, 60,225, 0,400, -60,225, -25,50" NeedleStyle1 = 3 NeedleWidth1 = 1 TicSize = 2 TicColor0 = 16777215 TicOuterRadius0 = 0.9 TicStopValue0 = 9.1 TicColor1 = 16777215 TicLabel1 = 0 'False TicLabelRadius1 = 0 TicOuterRadius1 = 0.8 TicStartValue1 = 0.5 TicStopValue1 = 9.6 BeginProperty Font0 {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Small Fonts" Size = 6 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty End Begin AIRLib.Air Horizon Height = 3255 Left = 2850 TabIndex = 1 Top = 2265 Width = 3300 _Version = 131078 _Version = 131078 _ExtentX = 5821 _ExtentY = 5741 _StockProps = 71 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty DisplayMode = 6 Barometer = 29.8999996185303 m_airspeedVFE = 95 m_airspeedVNO = 150 m_airspeedVNE = 180 m_airspeedVMax = 210 KnobRadius0 = 0.649999976158142 KnobShape??0 = "0,1100, 350,700, 100,700, 200,-200, 0,-100, -200,-200, -100,700, -350,700" MarkOuterRadius0= 0.800000011920929 MarkWidth0 = 0.400000005960464 BevelInner = 2 BevelWidth = 1 BorderWidth = 0 FrameBottom = 1.14999997615814 FrameLeft = -1.20000004768372 FrameRight = 1.20000004768372 FrameShape??0 = "0,100, 100,0, 900,0, 1000,100, 1000,900, 900,1000, 100,1000, 0,900" FrameStyle = 3 FrameTop = -1.14999997615814 CardColor = 16777215 CardLabelRadius = 0.699999988079071 CardStyle = 2 CardLabelStyle = 1 MajorTicShape??0= "0,900, 0,780" MinorTicShape??0= "0,900, 0,820" ScaleMaxValue0 = 360 ScaleStartAngle0= 0 ScaleStopAngle0 = 360 TicSize = 4 TicColor0 = 16777215 TicFloat0 = -1 'True TicInnerRadius0 = 0.88 TicLabel0 = 0 'False TicOuterRadius0 = 0.98 TicStopValue0 = 1 TicStyle0 = 2 TicWidth0 = 0.13 TicColor1 = 16777215 TicInnerRadius1 = 1.1 TicLabel1 = 0 'False TicOuterRadius1 = 1 TicStopValue1 = 0 TicStyle1 = 2 TicWidth1 = 0.13 TicColor2 = 16777215 TicDeltaValue2 = 10 TicInnerRadius2 = 1.05 TicLabel2 = 0 'False TicOuterRadius2 = 1.1 TicStartValue2 = -50 TicStopValue2 = 50.1 TicWidth2 = 0.02 TicColor3 = 16777215 TicDeltaValue3 = 60 TicInnerRadius3 = 1 TicLabel3 = 0 'False TicOuterRadius3 = 1.1 TicStartValue3 = -30 TicStopValue3 = 30.1 TicWidth3 = 0.02 BeginProperty Font0 {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Small Fonts" Size = 6 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty End Begin AIRLib.Air Heading Height = 2250 Left = 0 TabIndex = 0 Top = 0 Width = 2250 _Version = 131078 _Version = 131078 _ExtentX = 3969 _ExtentY = 3969 _StockProps = 71 BackColor = 0 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty BackColor = 0 DisplayMode = 1 Barometer = 29.8999996185303 KnobRadius0 = 0.649999976158142 KnobShape??0 = "0,1100, 350,700, 100,700, 200,-200, 0,-100, -200,-200, -100,700, -350,700" MarkOuterRadius0= 0.800000011920929 MarkWidth0 = 0.400000005960464 BevelInner = 2 BevelWidth = 1 BorderWidth = 0 FrameBottom = 1.14999997615814 FrameLeft = -1.14999997615814 FrameRight = 1.14999997615814 FrameShape??0 = "0,100, 100,0, 900,0, 1000,100, 1000,900, 900,1000, 100,1000, 0,900" FrameStyle = 2 FrameTop = -1.14999997615814 CardColor = 16777215 CardLabelRadius = 0.9 CardStyle = 2 CardLabelStyle = 1 MajorTicShape??0= "0,800, 0,680" MinorTicShape??0= "0,760, 0,680" ScaleMaxValue0 = 360 ScaleStartAngle0= 0 ScaleStopAngle0 = 360 CaptionSize = 2 CaptionColor0 = 16777215 Caption0 = "0" CaptionY0 = 0.479999989271164 CaptionVisible0 = -1 'True CaptionFlag0 = 1 CaptionColor1 = 16777215 Caption1 = "180" CaptionY1 = -0.479999989271164 CaptionVisible1 = -1 'True CaptionFlag1 = 1 BeginProperty Font0 {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Small Fonts" Size = 6 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty End Begin VB.Menu mnu Caption = "&Order" Index = 0 End Begin VB.Menu mnu Caption = "&Help" Index = 1 Begin VB.Menu helpmnu Caption = "&About Aircraft Instruments ActiveX" Index = 0 End Begin VB.Menu helpmnu Caption = "Aircraft &Instruments ActiveX Help" Index = 1 End End Begin VB.Menu mnu Caption = "E&xit" Index = 2 End Attribute VB_Name = "Form2" Attribute VB_Creatable = False Attribute VB_Exposed = False Private Sub ADF_DblClick() ADF.ShowPropertyPage End Sub Private Sub alt_DblClick() alt.ShowPropertyPage End Sub Private Sub climb_DblClick() climb.ShowPropertyPage End Sub Private Sub Form_Load() 'Center on page Left = (Screen.Width - Width) / 2 Top = (Screen.Height - Height) / 2 alt.Altitude = 11250 speed.Airspeed = 95 End Sub Private Sub heading_DblClick() heading.ShowPropertyPage End Sub Private Sub helpmnu_Click(Index As Integer) Select Case Index Case 0 'About Air About.Show 1 Case 1 'Help i = Shell("winhlp32 air.hlp", 1) End Select End Sub Private Sub horizon_DblClick() horizon.ShowPropertyPage End Sub Private Sub HSI_DblClick() HSI.ShowPropertyPage End Sub Private Sub mnu_Click(Index As Integer) Select Case Index Case 0 'Order i = Shell("winhlp32 order.hlp", 1) Case 1 'Help Case 2 'Exit End End Select End Sub Private Sub OBI_DblClick() OBI.ShowPropertyPage End Sub Private Sub RMI_DblClick() RMI.ShowPropertyPage End Sub Private Sub speed_DblClick() speed.ShowPropertyPage End Sub Private Sub Timer1_Timer() 'this is not a real simulation horizon.AHRoll = horizon.AHRoll + 4 * Rnd - 2 If horizon.AHRoll > 30 Then horizon.AHRoll = 30 If horizon.AHRoll < -30 Then horizon.AHRoll = -30 horizon.AHPitch = horizon.AHPitch + 4 * Rnd - 2 If horizon.AHPitch > 30 Then horizon.AHPitch = 30 If horizon.AHPitch < -30 Then horizon.AHPitch = -30 'In this cockpit demo, all instruments have the AutoRedraw property 'set to false for improved refresh rates. This requires that 'you force the instruments to redraw after all the instruments' 'properties have been updated. Setting the Redraw property to 'True forces the instruments to be refreshed immediately. horizon.Redraw End Sub Private Sub Timer2_Timer() climb.ClimbRate = 50 * speed.Airspeed * Sin(horizon.AHPitch * Cos(horizon.AHRoll * 3.14159 / 180) * 3.14159 / 180) alt.Altitude = altaltitude + climb.ClimbRate / 100 speed.Airspeed = speed.Airspeed - climb.ClimbRate / 2000 If speed.Airspeed > 120 Then speed.Airspeed = 120 If speed.Airspeed < 60 Then speed.Airspeed = 60 heading.HeadingIndicator = heading.HeadingIndicator - speed.Airspeed * Sin(horizon.AHRoll * 3.14159 / 180) / 20 OBI.OBICourse = heading.HeadingIndicator ADF.ADFBearing = heading.HeadingIndicator + 30 RMI.RMIBearing1 = heading.HeadingIndicator + 45 HSI.HSIHeading = heading.HeadingIndicator Turn.TCTurn = speed.Airspeed * Sin(horizon.AHRoll * 3.14159 / 180) * Sin(horizon.AHPitch * 3.14159 / 180) 'In this cockpit demo, all instruments have the AutoRedraw property 'set to false for improved refresh rates. This requires that 'you force the instruments to redraw after all the instruments' 'properties have been updated. Setting the Redraw property to 'True forces the instruments to be refreshed immediately. heading.Redraw speed.Redraw climb.Redraw alt.Redraw HSI.Redraw OBI.Redraw RMI.Redraw ADF.Redraw End Sub Private Sub Turn_DblClick() Turn.ShowPropertyPage End Sub